home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / os2 / rxbas132.zip / CREATNDX.CMD next >
OS/2 REXX Batch file  |  1994-02-28  |  412b  |  22 lines
  1. /* rexx */
  2. signal on syntax
  3.  
  4. say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
  5. say rexxbase_init()
  6. parse arg noname indexname key therest
  7. say rexxbase_opendbf("noname")
  8. r = rexxbase_createindex("noname",indexname,key)
  9. say r
  10.  
  11. say rexxbase_closedbf("noname")
  12.  
  13. return
  14.  
  15.  
  16. syntax:
  17.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  18.   say errormsg
  19.   say  sourceline(sigl)
  20. exit
  21.  
  22.